Shareware Grab Bag/Shareware Grab Bag.iso/007/function.arc/FUNC1A.INC

Text File | 1985-06-15 | 384 b | 13 lines

{ Set the disk transfer address                                        }

PROCEDURE Func1A (S, O : INTEGER);
 BEGIN
  WITH Registers DO
   BEGIN
    AX:=((AX AND $00FF) OR ($1A SHL 8));
    DX:=O;
    DS:=S;
    MSDOS (Registers);
   END;
 END;